MODULE PROTEX;

FROM Dato  IMPORT CrearCharDato, Dato, Formato, ObtCaracterDato;
FROM InOut IMPORT WriteLn, ReadCard, WriteCard, Write, Read;
FROM Comando IMPORT LeerComando, Comando;

VAR a : Dato;
    b : Formato;
    c : CHAR;
    cmd : Comando;
BEGIN
	b:=Negrita;
        a:=CrearCharDato("g",b);
	c:=ObtCaracterDato(a);
	Write(c);
	WriteLn();
	IF LeerComando(cmd) THEN
		Write("t");
	ELSE
		Write("f");
	END;
	Read(c);
END PROTEX.